home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g32.bas < prev    next >
BASIC Source File  |  1991-10-18  |  387b  |  18 lines
  1. 100 ' G32 T.WAKAMATSU
  2. 110 PI=3.14159!:C=4:CLS
  3. 120 PSET(320,479)
  4. 130 A=130:B=65
  5. 140 FOR T=0 TO 2*PI STEP PI/96
  6. 150   C=9-C
  7. 160   X=239*SIN(A*T)+320
  8. 170   Y=239*COS(B*T)+240
  9. 180   LINE -(X,Y),PSET,C
  10. 190 NEXT T
  11. 200 FOR D=1 TO 7000:NEXT D
  12. 210 PSET(320,479)
  13. 220 FOR T=0 TO 2*PI STEP PI/96
  14. 230   X=239*SIN(A*T)+320
  15. 240   Y=239*COS(B*T)+240
  16. 250   LINE -(X,Y),PSET,0
  17. 260 NEXT T
  18.